home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cafead1a / window.bas < prev   
BASIC Source File  |  1999-10-03  |  703b  |  24 lines
  1. Attribute VB_Name = "modWindow"
  2. Option Explicit
  3.  
  4. Declare Function ShowWindow Lib "User32" (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long
  5. Declare Function SendMessageByNum& Lib "User32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  6.  
  7. Public Const WM_CLOSE = &H10
  8. Public Const SW_HIDE = 0
  9. Public Const SW_NORMAL = 1
  10. Public Const SW_SHOWMINIMIZED = 2
  11. Public Const SW_SHOWMAXIMIZED = 3
  12. Public Const SW_RESTORE = 9
  13.  
  14. Public Sub CloseWindow(Hwnd)
  15. Dim lW As Long
  16. lW = SendMessageByNum(Hwnd, WM_CLOSE, 0, 0)
  17. End Sub
  18. Public Sub Window(frm As Form, state As Integer)
  19. Dim lW As Long
  20. lW = ShowWindow(frm.Hwnd, state)
  21. End Sub
  22.  
  23.  
  24.